home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / datetime.swg / 0033_BASM Get Date Routine.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-26  |  351 b   |  27 lines
  1. {
  2. From: LIAM STITT
  3. Subj: BASM Get Date
  4. }
  5.  
  6.   type
  7.     DateInfo = record
  8.       Year: Word;
  9.       Month: Byte;
  10.       Day: Byte;
  11.       DOW: Byte;
  12.    end;
  13.  
  14.   var
  15.     DI: DateInfo;
  16.  
  17.   procedure GetDate; assembler;
  18.   asm
  19.     mov ah,2Ah
  20.     int 21h
  21.     mov DI.Year,cx
  22.     mov DI.Month,dh
  23.     mov DI.Day,dl
  24.     mov DI.DOW,al
  25.   end;
  26.  
  27.